# $Id: StatsFree.pm,v 1.1 2004/02/21 18:48:07 ibo Exp $

package CGI::FOGE2::StatsFree;

use strict;
use CGI::FOGE2::Tools;

our @ISA = qw(CGI::FOGE2::Stats);

=head1 SYNOPSIS

StatsFree - used to report free-style comments.

=head1 BUG

Should provide a link towards the complete answer.

=cut

sub getstats {
    my $self = shift;
    my $out = '';

    my ($vals) = $self->getdata();

    my $table = '';
    foreach my $val (@$vals) {
	$table .= CGI::Tr(CGI::td({-class => 'statrow'}, $val));
    }

    $out = CGI::table($table);
    return $out;
}

1;
